home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / webbro1a / frmsampl.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-07-27  |  4.2 KB  |  100 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Begin VB.Form frmSample 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3420
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4530
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3420
  11.    ScaleWidth      =   4530
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  14.       Height          =   3315
  15.       Left            =   60
  16.       TabIndex        =   0
  17.       Top             =   60
  18.       Width           =   4395
  19.       ExtentX         =   7752
  20.       ExtentY         =   5847
  21.       ViewMode        =   0
  22.       Offline         =   0
  23.       Silent          =   0
  24.       RegisterAsBrowser=   0
  25.       RegisterAsDropTarget=   1
  26.       AutoArrange     =   0   'False
  27.       NoClientEdge    =   0   'False
  28.       AlignLeft       =   0   'False
  29.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  30.       Location        =   ""
  31.    End
  32. Attribute VB_Name = "frmSample"
  33. Attribute VB_GlobalNameSpace = False
  34. Attribute VB_Creatable = False
  35. Attribute VB_PredeclaredId = True
  36. Attribute VB_Exposed = False
  37. Option Explicit
  38. Implements IDocHostUIHandler
  39. Private Const CONTEXT_MENU_CONTROL = 2&
  40. Private Const E_NOTIMPL = &H80004001
  41. Private Sub Form_Load()
  42.     WebBrowser1.Navigate "about:<html><title></title><body><h2>" & _
  43.                          "Simple HTML document</h2>" & _
  44.                          "If you right click, the context menu will not appear. " & _
  45.                          "See IDocHostUIHandler_ShowContextMenu." & _
  46.                          "</body></html>"
  47. End Sub
  48. Private Sub IDocHostUIHandler_EnableModeless(ByVal fEnable As Long)
  49.     Err.Raise E_NOTIMPL
  50. End Sub
  51. Private Sub IDocHostUIHandler_FilterDataObject(ByVal pDO As WebBrowserInterfaces.IDataObject, ppDORet As WebBrowserInterfaces.IDataObject)
  52.     Err.Raise E_NOTIMPL
  53. End Sub
  54. Private Sub IDocHostUIHandler_GetDropTarget(ByVal pDropTarget As WebBrowserInterfaces.IDropTarget, ppDropTarget As WebBrowserInterfaces.IDropTarget)
  55.     Err.Raise E_NOTIMPL
  56. End Sub
  57. Private Sub IDocHostUIHandler_GetExternal(ppDispatch As Object)
  58.     Err.Raise E_NOTIMPL
  59. End Sub
  60. Private Sub IDocHostUIHandler_GetHostInfo(pInfo As WebBrowserInterfaces.DOCHOSTUIINFO)
  61.     Err.Raise E_NOTIMPL
  62. End Sub
  63. Private Sub IDocHostUIHandler_GetOptionKeyPath(pchKey As String, ByVal dw As Long)
  64.     Err.Raise E_NOTIMPL
  65. End Sub
  66. Private Sub IDocHostUIHandler_HideUI()
  67.     Err.Raise E_NOTIMPL
  68. End Sub
  69. Private Sub IDocHostUIHandler_OnDocWindowActivate(ByVal fActivate As Long)
  70.     Err.Raise E_NOTIMPL
  71. End Sub
  72. Private Sub IDocHostUIHandler_OnFrameWindowActivate(ByVal fActivate As Long)
  73.     Err.Raise E_NOTIMPL
  74. End Sub
  75. Private Sub IDocHostUIHandler_ResizeBorder(prcBorder As WebBrowserInterfaces.tagRECT, ByVal pUIWindow As WebBrowserInterfaces.IOleInPlaceUIWindow, ByVal fRameWindow As Long)
  76.     Err.Raise E_NOTIMPL
  77. End Sub
  78. Private Sub IDocHostUIHandler_ShowContextMenu(ByVal dwID As Long, ppt As WebBrowserInterfaces.tagPOINT, ByVal pcmdtReserved As Long, ByVal pdispReserved As Object)
  79.     If dwID = CONTEXT_MENU_CONTROL Then _
  80.         Err.Raise E_NOTIMPL
  81. End Sub
  82. Private Sub IDocHostUIHandler_ShowUI(ByVal dwID As Long, ByVal pActiveObject As WebBrowserInterfaces.IOleInPlaceActiveObject, ByVal pCommandTarget As WebBrowserInterfaces.IOleCommandTarget, ByVal pFrame As WebBrowserInterfaces.IOleInPlaceFrame, ByVal pDoc As WebBrowserInterfaces.IOleInPlaceUIWindow)
  83.     Err.Raise E_NOTIMPL
  84. End Sub
  85. Private Sub IDocHostUIHandler_TranslateAccelerator(lpmsg As WebBrowserInterfaces.tagMSG, pguidCmdGroup As WebBrowserInterfaces.GUID, ByVal nCmdID As Long)
  86.     Err.Raise E_NOTIMPL
  87. End Sub
  88. Private Sub IDocHostUIHandler_TranslateUrl(ByVal dwTranslate As Long, ByVal pchURLIn As String, ppchURLOut As String)
  89.     Err.Raise E_NOTIMPL
  90. End Sub
  91. Private Sub IDocHostUIHandler_UpdateUI()
  92.     Err.Raise E_NOTIMPL
  93. End Sub
  94. Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  95. Dim custDoc As ICustomDoc
  96.     ' Setting UIHandler
  97.     Set custDoc = WebBrowser1.Document
  98.     custDoc.SetUIHandler Me
  99. End Sub
  100.